home *** CD-ROM | disk | FTP | other *** search
/ MacAddict 114 / macaddict114.cdr / Software / Graphics & Multimedia / DeBabelizerServerOSX.dmg / Packages / MediaRichShared.pkg / Contents / Resources / preinstall < prev    next >
Encoding:
Text File  |  2005-09-08  |  582 b   |  33 lines
  1. #!/usr/bin/perl
  2.  
  3. sub logit
  4. {
  5.     open F, ">>/tmp/preinstall.log";
  6.     print F $_[0] . "\n";
  7.     close F;
  8. }
  9.  
  10. my $isUpgrade = ($ARGV[4] eq "preupgrade");
  11.  
  12. system("/Library/DeBabelizerServer/Admin/Bin/Tools/MRStartStop stop");
  13.  
  14. my @sysdirs = (
  15.     "/",
  16.     "/Library",
  17.     "/Library/StartupItems",
  18.     "/Applications",
  19.     );
  20.  
  21. my $perms = "";
  22. foreach $d (@sysdirs)
  23. {
  24.     my @stats = stat($d);
  25.     my $mode = sprintf("%05o", $stats[2] & 07777);
  26.     my $uid = $stats[4];
  27.     my $gid = $stats[5];
  28.     $perms .= ($perms? "," : "") . "$d,$mode:$uid:$gid";
  29. }
  30. open F, ">/tmp/.__MR_PERMS__";
  31. print F $perms;
  32. close F;
  33.